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ABSTRACT 


A  preliminary  version  of  QLISP  is  described .  QLISP  permits  free 
intermingling  of  QA4-like  constructs  with  INTERLISP  code.  The 
preliminary  version  contains  features  similar  to  those  of  QA4  except 
for  the  backtracking  of  control  environments.  It  provides  several  new 
features  as  well. 

This  preliminary  manual  presumes  a  familiarity  with  both  INTERLISP 
and  the  basic  concepts  of  QA4.  It  is  intended  to  update  rather  than 
replace  the  existing  documentation  of  QA4 . 
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I  INTRODUCTION 


QLISP  brings  together  in  a  natural  fashion  the  control  structures, 

*1 

pattern  matching,  and  net  storage  mechanisms  of  QA4  ,  and  the  versatility, 
programming  ease,  and  interactive  features  of  INTERLISP2  (formerly  called 
BBN-LISP) .  The  system  permits  free  intermixing  of  QA4,  CLISP3,  and  the 
INTERLISP  code  so  that,  for  example,  users  may  write  programs  or  type 
expressions  for  evaluation  in  LISP,  CLISP,  or  QA4,  or  in  a  mixture  of 
all  three. 

QLISP  has  been  implemented  by  means  of  the  error  correction  facility 
in  INTERLISP.  A  valid  LISP  expression  will  never  be  seen  by  the  QLISP 
processor.  Thus,  programs  that  do  not  use  QA4  constructs  will  run  as 
fast  in  QLISP  as  in  LISP.  When  the  LISP  interpreter  encounters  an  ill- 
formed  expression,  it  calls  an  error  routine  that  in  turn  invokes  the 
error  analyzer.  If  the  form  is  recognized  as  a  QA4  construct,  it  is 
translated  to  an  equivalent  LISP  form  that  is  returned  to  the  interpreter 
for  evaluation;  if  the  expression  is  a  valid  CLISP  construct,  a  similar 
translation  takes  place. 

In  either  case,  the  translation  is  stored  with  the  original  QLISP 
expression  so  that  the  analysis  and  translation  are  done  only  once. 

Since  QLISP  allows  QA4  operations  to  be  embedded  directly  in  LISP, 
the  new  system  does  not  require  the  QA4  interpreter  or  stack  mechanism. 
Furthermore,  QLISP  programs  are  stored  as  standard  LISP  functions  rather 
than  as  expressions  In  the  QA4  discrimination  net,  thus  reducing  the  search 
time  required  for  associative  retrievals  as  well  as  for  function  calls. 


* 

Superscripts  denote  references  listed  at  the  end  of  the  report. 
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A  preliminary  version  of  QLISP  is  now  available.  It  provides  fea¬ 
tures  similar  to  those  of  QA4  except  for  the  backtracking  of  control 
environments.  It  provides  several  new  features  as  well. 

The  major  differences  between  this  version  of  QLISP  and  the  current 
QA4  are: 

•  QLISP  functions  are  defined  and  stored  in  the  same  way  as 
LISP  functions.  Functions  are  stored  as  values  of  net  vari¬ 
ables  in  QA4. 

•  The.  QA4  data-type  SET  has  been  renamed  CLASS,  and  a  new 
data-type  VECTOR  has  been  added  . 

•  The  QA4  SETQ  and  SETQQ  statements  have  been  renamed  MATCHQ 
and  MATCHQQ.  In  addition,  QLISP  provides  a  MATCH  state¬ 
ment  (the  pattern-matching  equivalent  of  the  LISP  function 
SET)  . 

•  The  QA4  statement  EXISTS  has  been  renamed  IS,  and  a  corres¬ 
ponding  statement  ISNT  has  been  added. 

•  The  syntax  of  the  net  storage  artd  retrieval  statements  has 
been  modified. 

•  "Demons”  have  been  replaced  by  "teams"  of  functions  that  may 
be  applied  by  any  net  storage  or  retrieval  function. 

•  Tuples  are  now  equivalent  to  LISP  lists.  The  external  form 

of  (TUPLE  a  a  ...  a  )  is  now  (a  a  . . .  a  )  rather  than 
1  2  n  1  2  n, 

(TUPLE  a  a  . . .  a  ) ,  The  internal  form  of  (a  a  . . .  a  ) 

12  n  1  2 

is  now  (TUPLE  a  a  .  .  .  a  )  rather  than  (APPL  a,  "(TUPLE 
1  2  n  1 

a  a  . .  .  a  ) )  . 

2  3  n 

•  Processes  are  not  currently  available. 

•  Backtracking  out  of  the  scope  of  a  single  statement,  e.g., 
backtracking  to  a  previous  IS,  MATCH,  or  GOAL  statement  is 
not  currently  possible.  However,  as  a  temporary  expedient, 
the  effect  of  backtracking  to  an  IS  can  be  simulated  by  using 
BIS  ("Backtrack  IS")  . 

This  is  a  preliminary  QLISP  manual.  It  is  intended  to  update  rather 
than  to  replace  the  existing  documentation  of  QA4.  It  presumes  a  famil¬ 
iarity  with  both  INTERLISP  and  QA4. 


We  are  convinced  that  QLISP  can  be  the  most  usable  of  the  recent 
generation  of  AI  languages.  With  this  in  mind,  the  authors  hereby  elicit 
and  encourage  feedback  from  the  user  community. 

A  sample  QLISP  program  is  given  in  Annex  A.  The  syntax  of  QLISP 
statements  is  given  in  Appendix  B 
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II  THE  QLISP  LANGUAGE 


A .  QLISP  Expressions 

QLISP  provides  complete  freedom  in  intermingling  LISP  expressions 
with  those  that  provide  net  storage  and  retrieval,  pattern  matching,  and 
control  structure  manipulation.  As  an  example,  consider  the  ARE-COUSINS 
program: 

(QLAMBDA  (-PERS0N1  — PERS0N2) 

(IS  (FATHER  $PERSONl  -  F) ) 

(IS  (UNCLES  $PERSON2  U) ) 

* 

(IF  (HE MB  $F  $U) 

THEN  (PRINT  ('  ($PERSONl  AND  $PERS0N2  ARE  COUSINS))) 

ELSE  (PRINT  ('  ($PERSONl  AND  $PERSON2  ARE  NOT  COUSINS))))) 

When  this  program  is  executed,  two  associative  retrievals  from  the 
discrimination  net  will  obtain  the  father  of  the  first  person  and  the 
uncles  of  the  second  person.  If  the  father  of  the  first  person  is  among 
the  uncles  of  the  second,  we  proclaim  the  two  persons  to  be  cousins. 

B .  The  QLISP  Discrimination  Net 

QLISP  provides  data  base  storage  and  retrieval  facilities  similar 
to  those  of  QA4.  Data  of  type  TUPLE,  VECTOR,  BAG,  or  CLASS  may  be  stored 
in  a  discrimination  net  and  accessed  by  associative  retrieval. 

A  tuple  is  equivalent  to  a  LISP  list.  The  form  (f  a^  a^  ...  a^) 

will  be  stored  internally  as  (TUPLE  fa  a  ...  a  )  unless  f  is  declared 

12  n 

to  take  a  VECTOR,  BAG,  or  CLASS  as  its  argument .  Such  a  declaration  is 
performed  by  evaluating  DEFTYPE[f ; type ],  where  f  is  a  function  or  predi¬ 
cate  name  and  type  is  VECTOR,  BAG,  or  CLASS. 

A  vector  is  similar  to  a  tuple,  that  is,  it  contains  an  ordered 
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sequence  of  elements.  The  treatment  of  tuples  and  vectors  differs  only  if 
they  are  evaluated  .  The  value  of  a  tuple  is  the  result  of  applying 
the  function  specified  by  its  first  element  to  the  values  of  the  rest  of 
its  elements;  the  value  of  a  vector  is  simply  a  vector  of  the  values  of 
its  elements.  Thus  a  tuple  is  useful  for  representing  an  evaluable  form 
containing  a  function  and  its  arguments,  whereas  a  vector  is  useful 
for  representing  an  argument  list  alone. 

A  bag  is  a  collection  of  unordered  elements,  and  the  elements  may 
be  duplicated,  that  is  (BAG  A  A  B  C)  is  EQ  to  (BAG  A  C  B  A) . 

A  class  is  a  collection  of  unordered  elements,  without  duplication, 
that  is,  (CLASS  A  B  C  A)  is  EQ  to  (CLASS  C  B  A) . 

C .  Constructing  QLISP  Expressions 

The  QLISP  functions  TUPLE,  VECTOR,  BAG,  and  CLASS  cause  an  expression 
of  the  appropriate  type  to  be  built  and  dropped  into  the  discrimination 
net.  For  example,  (BAG  FAB)  will  create  a  bag  with  elements  A,  B,  and 
F.  Similarly,  (TUPLE  FAB)  will  create  the  tuple  (F  A  B)  regardless  of 
whether  F  was  DEFTYPEd . 

The  construction  of  new  expressions  is  simplified  by  the  use  of  the 
STRIP  operator(I).  The  STRIP  operator  causes  a  level  of  parentheses  to 
be  stripped  from  its  argument  (and  thus  is  meaningless  at  the  top  level) . 

For  example,  (VECTOR  (! (VECTOR  A  B))(! (VECTOR  B  C)))  will  cause  the 
vector  (VECTOR  A  B  B  C)  to  be  built. 

Note  that  (!  $X)  is  equivalent  to  $$X. 

D .  Inverse  Quote  Mode,  Evaluation,  and  Instantiation 

Statements  for  net  storage  and  retrieval,  pattern  matching,  and  con¬ 
trol  structure  manipulation  are  interpreted  in  inverse  quote  mode .  That 
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is,  atoms  that  are  not  otherwise  identified  are  treated  as  constants. 
Variables  are  indicated  by  a  prefix  character  or  characters. 


These  statements  normally  instantiate  their  arguments  rather  than 
evaluate  them.  To  instantiate  an  expression  is  simply  to  replace  its  net 
variables  by  their  values.  For  example,  if  the  variable  $X  is  bound  to 
B,  then  the  QLISP  statement  (ASSERT  (F00  A  $X) )  will  assert  the  expression 
(F00  A  B) ,  not  the  result  of  evaluating  (F00  A  B) . 

The  "at"  sign  (@)  is  used  to  force  evaluation  of  the  following  ex¬ 
pression.  For  example,  (ASSERT  (@  (F00  A  $X)))  will  assert  the  result 
of  evaluating  (F00  A  B) . 

The  quote  mark(')  is  used  to  force  instantiation  where  evaluation 
would  normally  take  place.  For  example,  (PRINT  ('(THIS  EXPRESSION  WILL 
$X  INSTANTIATED)))  will  cause  (THIS  EXPRESSION  WILL  B  INSTANTIATED)  to 
be  printed . 

The  colon  prefix  (:)  is  used  to  prevent  the  instantiation  of  a  $ 
variable  when  it  occurs  in  an  expression  to  be  instantiated .  For  example, 
(PRINT  ('(THE  VALUE  OF  :$X  IS  $X)))  will  cause  (THE  VALUE  OF  $X  IS  B)  to 
be  printed  . 

E.  QLISP  Functions 

QLISP  functions  are  of  three  varieties :  LAMBDA  and  NLAMBDA,  as  in 
INTERLISP,  and  QLAMBDA,  which  is  equivalent  to  the  QA4  LAMBDA  and  has  a 
pattern  as  its  bound  variable  part.  QLAMBDA  expressions  admit  "implicit 
PROGNs”  just  as  LAMBDAs  and  NLAMBDAs  do. 

F .  Declaring  Local  Variables 

The  QPROG  statement  is  an  analog  of  the  LISP  PROG  feature.  It 
allows  the  declaration  of  net  variables  in  the  local  context  as  well  as 
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local  LISP  variables.  The  format  of  the  QPROG  statement  is: 

(QPROG  args  e_  . . .  e  ) . 

1  n 

LISP  variables  are  denoted  in  the  args  list  exactly  as  in  the  LISP 
PROG  statement.  Net  variables  are  denoted  by  prefixing  them  with  a  left 
arrow  (— ) . 

The  expressions  e.  are  arbitrary  QLISP  expressions. 

For  example,  the  statement 

(QPROG  (U-V  (W  0)  (-X  (TUPLE))) 

'  ) 

will  cause  local  variables  U,V,W,  and  X  to  be  declared.  U  and  W  will 
be  LISP  variables.  V  and  X  will  be  net  variables.  U  will  have  an 
initial  value  of  NIL,  V's  initial  value  will  be  NOSUCHPROPERTY  W  will 
be  bound  to  0,  and  X  will  be  bound  to  the  empty  tuple. 

Both  PROG  and  QPROG  should  be  exited  by  either  of  the  functions 
RETURN  or  QRETURN .  QRETURN  is  similar  to  the  LISP  RETURN,  except  that 
it  instantiates  its  argument  rather  than  evaluating  it. 

G .  QLISP  Backtracking 

The  side  effects  of  QLISP  computations  may  be  undone  (in  the  INTER- 
LISP  sense)  by  the  use  of  the  QLISP  failure  mechanism.  A  statement  that 
invokes  pattern  matching  will  fail  if  no  match  exists  or  if  all  matches 
have  been  exhausted .  Other  statements  may  be  caused  to  fail  by  the  use 
of  the  FAIL  statement  which  is  described  below. 

A  failure  will  cause  a  return  to  some  backtrack  point  and  undo  all 
undoable  computations  performed  since  the  backtrack  point  was  established. 

Manipulation  of  expressions  in  the  net  is  undoable  unless  it  is 
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done  with  respect  to  the  context  ETERNAL,  or  one  of  its  descendants. 


Manipulation  of  list  structures  is  undoable  if  it  is  done  by  means  of 
"/  functions."4  In  addition  to  the  functions  provided  by  INTERLISP, 

QLISP  has  a  /SETQ  function  as  well. 

Backtrack  points  are  established  within  all  net  storage  and  retrieval 
statements  and  within  QLAMBDA  expressions  that  have  the  BACKTRACK  option. 

Failures  may  be  caused  explicitly  by  executing  the  FAIL  statement . 

Its  format  is  (FAIL  name) . 

If  name  is  absent  or  NIL,  FAIL  causes  a  failure. 

If  name  is  CALLER,  FAIL  causes  the  last  net  stoi’age  or  retrieval 
statement  to  fail. 

If  name  matches  the  NAME  of  a  net  storage  or  retrieval  statement, 

FAIL  causes  the  named  statement  to  fail.  (Assignments  of  NAMEs 
to  statements  and  examples  of  the  use  of  the  FAIL  statement  will 
be  discussed  in  the  following  section.) 

H .  Statements  of  the  QLISP  Language 

A  full  listing  of  the  syntactic  form  of  each  non-LISP  statement 
appears  in  Appendix  B.  New  statements  and  those  that  differ  significantly 
from  their  old  QA4  counterparts  are  discussed  below. 

In  the  syntactic  forms  to  follow,  braces  (f})  indicate  an  optional 
clause.  The  ordering  of  options  is  arbitrary. 

The  net  storage  and  retrieval  statements  have  a  new  common  syntax. 
First,  the  syntax  will  be  discussed  in  general,  and  then  each  of  these 
statements  will  be  described. 

1 .  Syntax  of  Net  Storage  and  Retrieval  Statements 

The  general  form  of  a  QLISP  net  storage  and  retrieval  statement 

is : 
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(statement-type  p-exp  {APPLY  team)  {WRT  ctx]  [NAME  name] 

find  prop  ...  ind  prop  ]) 

‘■11  n  n 

The  statement- type  is  one  of  the  following: 

QPUT 

QGET 

ASSERT 

DENY 

IS 

ISNT 

BIS 

INSTANCES 

GOAL 

CASES 

DELETE 

p-exp  is  a  pattern  to  be  instantiated . 

The  team  must  instantiate  to  a  class,  a  bag,  or  a  tuple  of 
QLAMBDA  functions.  They  will  be  applied  to  the  instantiation  of  p-exp. 

If  a  failure  occurs  during  the  application  of  one  function  in  the  team, 
its  side  effects  are  undone  and  the  next  function  in  the  team  is  tried. 
With  the  exception  of  the  GOAL  statement,  the  application  of  the  team 
functions  is  for  their  effect  rather  than  their  values  (i.e,,  the  values 
returned  by  the  team  functions  are  never  used  by  the  calling  statement) . 

ctx,  when  present,  must  instantiate  to  a  context.  This  context 
will  be  passed  as  a  context  recommendation  to  the  functions  in  the  team 
(i.e.,  it  will  be  used  as  a  default  value  for  context  references  in  the 
team  functions).  The  following  are  the  possible  context  specifications 
and  their  meanings: 

•  LOCAL — Current  context. 

•  GLOBAL-- Top  context . 

•  ETERNAL— Current  default  context.  Changes  made  in  this 
context  will  not  be  backtrackable. 

•  UNIVERSAL — Top  context.  Changes  made  in  this  context  will 
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not  be  backtrackable. 


•  A  variable  that  was  previously  bound  to  a  context. 

•  A  CONTEXT  statement. 

If  the  WRT  option  is  omitted  in  the  statement,  the  context  is 
bound  by  default  to  the  last  context  recommendation  from  a  calling 
statement.  If  no  such  recommendation  was  made,  the  top  context  is  used. 

The  statement  may  be  given  a  name .  A  team  function  may  refer 
to  that  name  in  a  FAIL  statement ,  The  default  name  is  the  type  of  the 
statement  itself  (e.g.,  ASSERT). 

ind  prop  ...  ind  prop  are  property  specifications.  Their 
1  1  n  n 

use  in  each  statement  type  is  discussed  below. 


2 .  Net  Storage  and  Retrieval  Statements 


a.  QPUT 


follows : 


The  format  of  the  QPUT  statement  is: 

(QPUT  p-exp  {APPLY  team]  {WRT  ctx]  {NAME  name] 

{ind  prop  ...  ind  prop  ]) 

1  1  n  n 


The  steps  in  the  evaluation  of  a  QPUT  statement  are  as 


(1)  The  pattern  p-exp  is  instantiated,  and  an  expression 
exp  that  matches  the  instantiation  is  retrieved  from 
the  net . 

(2)  A  context  CTX  in  which  to  evaluate  the  statement  is 
determined  as  described  above. 

(3)  The  indicator-property  pairs  are  instantiated,  and  all 
properties  prop,  are  assigned  to  the  expression  under 
the  corresponding  indicators  ind_^  with  respect  to  CTX. 

(4)  If  the  NAME  option  is  present,  then  the  statement  is 
named  name .  Otherwise  the  statement  is  named  QPUT. 

(5)  If  there  is  an  APPLY  option,  team  is  instantiated 
and  all  of  its  functions  are  applied  successively  to 
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exp .  The  default  for  context  references  in  the  team 
functions  will  be  CTX. 

If  any  team  function  fails,  its  side  effects  are 
undone  . 

The  functions  in  the  team  may  cause  the  QPUT  statement 
itself  to  fail,  as  described  in  Section  II-G,  above. 

(6)  The  statement  returns  exp  as  its  value.  For  example, 
in  the  sample  program  in  Annex  A.  the  QPUT  state¬ 
ment  in  HITCH, 

(QPUT (PERSON  $ HUMAN) MARRIEDTO  $Y  APPLY  $COMPUTE RELATIONS) 
operates  as  follows  when  the  argument  to  HITCH  is 
(HAPPY  ADAM) 

•  The  pattern  (PERSON  $HUMAN)  is  instantiated  to  (PERSON 
ADAM) ,  and  (PERSON  ADAM)  is  retrieved  from  the  net . 

•  The  statement  will  be  evaluated  in  the  top  context, 
because  no  context  was  specified  and  the  current  default 
context  is  the  top  context . 

•  $Y  is  instantiated  to  ADAMs  spouse,  say,  EVE,  and 
placed  as  the  value  of  the  indicator  MARRIEDTO  on  the 
property  list  of  (PERSON  ADAM)  . 

•  The  statement  is  named  "QPUT." 

•  The  team  $COMPUTERELATIONS  is  instantiated  to  the  tuple 
(MAKESPOUSE) . 

The  function  MAKESPOUSE  is  called  with  the  argument 
(PERSON  ADAM);  if  the  (FAIL  CALLER)  statement  in 
MAKESPOUSE  is  executed,  the  QPUT  statement  itself  will 
fail  and  the  property  list  of  (PERSON  ADAM)  will  be 
restored  . 

If  a  (FAIL)  statement  instead  of  (FAIL  CALLER)  had 
been  executed,  then  the  side  effects  of  MAKESPOUSE 
would  have  been  undone  but  execution  of  the  QPUT 
statement  would  have  continued. 

•  (PERSON  ADAM)  is  returned  as  the  value  of  the  QPUT 
statement . 


b .  QGET 


The  format  of  the  QGET  statement  is: 

(QGET  p-exp  (APPLY  team]  (WRT  ctxj  (NAME  name] 
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ind 

ind  prop  find  prop  ...  ind  prop  }  ) 

1  1  2  2  n  n 

The  evaluation  of  a  QGET  statement  is  similar  to  that  of  QPUT, 

except  that  it  retrieves  values  for  each  indicator  ind  .  If  no  property 

can  be  found  for  an  indicator,  NOSUCHPROPERTY  is  used  as  its  value.  The 

values  are  matched  against  the  corresponding  patterns  prop  .  If  a  match 

for  p-exp  cannot  be  found,  or  if  the  match  to  some  prop  does  not  succeed, 

i 

the  QGET  statement  fails. 

If  only  one  indicator  (and  no  properties)  was  specified,  QGET  returns 
the  corresponding  property  value.  Otherwise,  QGET  returns  the  expression 
exp . 

For  example,  in  the  sample  program  in  Appendix  A,  when  the  QGET  state¬ 
ment  in  CHECKAGE, 

(QGET  (PERSON  (@  SPOUSE))  SEX  -SEX  AGE  -AGE) 

is  called  with  EVE  as  the  value  of  SPOUSE,  then  $SEX  will  be  bound  to  her 
sex,  $AGE  will  be  bound  to  her  age,  and  (PERSON  EVE)  will  be  returned  as 
the  value  of  the  QGET  statement. 

c .  ASSERT 

The  format  of  the  ASSERT  statement  is : 

(ASSERT  p-exp  [APPLY  team]  { WRT  ctx]  [NAME  name] 

find  prop  ...  ind  prop  ]) 

11  n  n J 

ASSERT  performs  (QPUT  p-exp  [APPLY  team]  [WRT  ctx]  [NAME  name] 

MODELVALUE  T  [ind  prop.,  ...  ind  prop  ]). 

11  n  n 

Responsibility  for  consistency  checks  rests  with  the  functions 
in  the  APPLY  team. 
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DENY 


d  . 


The  format  of  the  DENY  statement  is: 

(DENY  p-exp  {APPLY  team)  { WRT  ctx)  {NAME  name] 

{ind  prop,  ...  ind  prop  }) 

^11  n  n 

DENY  performs  (QPUT  p-exp  {APPLY  team)  {WRT  ctx]  {NAME  name] 

MODELVALUE  NIL  find  prop  ...  ind  prop  }) 

11  n  n 

Responsibility  for  consistency  checks  rests  with  the  functions 
of  the  APPLY  team. 


e.  IS 

The  format  of  the  IS  statement  is: 

(IS  p-exp  {APPLY  team]  {WRT  ctx]  {NAME  name] 

f ind  prop  . . .  ind  prop  )  ) 

11  n  n 

IS  performs  (QGET  p-exp  {APPLY  team)  {WRT  ctx)  {NAME  name] 

MODELVALUE  T  {ind  prop  ...  ind  prop  ])  . 

11  n  n- 

f .  ISNT 

The  format  of  the  ISNT  statement  is: 

(ISNT  p-exp  {APPLY  team)  {WRT  ctx]  {NAME  name) 

{ ind  prop,  . . .  ind  prop  ] ) 

ISNT  performs  (QGET  p-exp  {APPLY  team]  {WRT  ctx]  {NAME  name ] 

MODELVALUE  NIL  find  prop  ...  ind  prop  ]) 

11  n  n 


g.  BIS 

The  format  of  the  BIS  statement  is: 

(BIS  p-exp  {APPLY  team]  {WRT  ctx]  {NAME  name] 

find  prop  ...  ind  prop  ]  THEN  e  fe  . . .  e  ]) 
11  n  n  1  *■  2  m- 
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BIS  performs  the  same  retrieval  as  IS,  but  when  an  expres¬ 
sion  has  been  found  and  the  team  members  applied,  a  backtrack  point  is 

established  and  the  expressions  e  ...  e  are  evaluated  in  turn.  If  a 

1  m 

failure  occurs,  BIS  will  continue  to  retrieve  different  expressions  from 
the  net  until  either  none  of  the  e,  fails,  in  which  case  BIS  returns  the 
retrieved  expression,  or  until  all  possible  retrievals  from  the  net 
have  been  attempted,  in  which  case  BIS  fails. 

BIS  is  a  temporary  expedient,  which  may  be  removed  from 
the  language  when  INTERLISP  permits  control  structure  backtracking.  At 
that  time  the  IS  statement  will  be  able  to  establish  a  backtrack  point, 
and  failures  below  it  will  cause  another  attempt  at  retrieval  to  take 
place . 

For  example,  in  the  sample  program  of  Appendix  A,  when  HITCH 
is  called  with  the  argument  (HAPPY  ADAM),  the  BIS  statement  will  retrieve 
an  expression  from  the  net  of  the  form  (PERSON  <-Y)  that  has  the  property 
FEMALE  under  the  indicator  SEX.  The  statements  after  THEN  will  be  evaluated. 
If  any  statement  fails,  another  expression  will  be  retrieved  from  the  net, 
and  the  cycle  will  be  repeated  .  If  no  statement  fails  BIS  will  return 
(HAPPY  ADAM)  .  If  no  expression  had  been  found  in  the  net  for  which  none 
of  the  statements  failed,  then  the  BIS  statement  would  have  failed. 

h.  INSTANCES 

The  format  of  the  INSTANCES  statement  is : 

(INSTANCES  p-exp  f APPLY  team]  [WRT  ctx]  (NAME  name] 

f ind  prop  . . .  ind  prop  ] ) 

11  n  nJ 

INSTANCES  instantiates  the  pattern  p-exp,  determines  a 
context  CTX,  and  computes  a  name  as  was  described  for  the  QPUT  statement. 

INSTANCES  then  retrieves  all  the  expressions  from  the  net 
that  match  the  instantiation  of  p-exp,  that  have  the  value 
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indicator  MODELVALUE  (unless  some  ind _  is  MODELVALUE)  and  that  have  pro¬ 
perties  on  the  indicators  ind  which  match  the  property  patterns  prop  , 

i  i 

with  respect  to  the  context  CTX. 

For  each  such  expression  found,  all  the  members  of  the 
APPLY  team  are  applied  to  it  successively. 

A  CLASS  of  all  the  retrieved  expressions  is  returned  as 
the  value  of  the  statement. 

i .  GOAL 

The  format  of  the  GOAL  statement  is : 

(GOAL  p-exp  [APPLY  team]  [WRT  ctx}  [NAME  name] 

[ind  prop  ...  ind  prop  })  • 

11  n  n 

GOAL  first  performs  (IS  p-exp  [WRT  ctx}  [NAME  name ] 

[ind  prop  ...  ind  prop  })  • 

1  1  n  n 

If  an  expression  was  found,  it  is  returned  as  the  value  of 

the  statement.  If  not,  the  functions  of  the  team  are  applied  successively 

to  the  instantiated  p-exp  until  some  team  member  does  not  fail.  The 
value  returned  by  that  team  member  is  then  returned  as  the  value  of  the 
statement.  If  all  the  functions  of  the  team  fail,  the  GOAL  statement 
fails . 


j .  CASES 

The  format  of  the  CASES  statement  is: 

(CASES  p-exp  [APPLY  team]  [WRT  ctx]  [NAME  name] )  . 

CASES  is  equivalent  to  GOAL,  except  that  the  IS  statement 
is  not  performed  . 
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k .  DELETE 

The  format  of  the  DELETE  statement  is: 

(DELETE  p-exp  [APPLY  team]  [WRT  ctx}  [NAME  name) 

find  prop  ...  ind  prop  }) 

11  n  n 

DELETE  performs  the  equivalent  of 

(INSTANCES  p-exp  [APPLY  team]  [WRT  ctx]  [NAME  name ) 

MODELVALUE  (POR  T  NIL)  [ind  prop  ...  ind  prop  }) 

11  n  n 

For  each  expression  of  the  CLASS  returned  by  INSTANCES, 
the  indicator  MODELVALUE  is  removed.  DELETE  returns  that  CLASS . 

3 .  Other  Statements  That  Can  Set  a  Default  Context 

a .  DO 

The  format  of  the  DO  statement  is: 

(DO  tpl  WRT  ctx) 

DO  instantiates  tpl  in  the  current  context.  The  pattern 
tpl  must  instantiate  to  a  pattern  of  STYPE  TUPLE .  The  TOT  clause  is 
evaluated,  and  this  determines  a  new  default  context.  The  instantiation 
of  tpl  is  evaluated  in  this  context,  and  the  result  of  the  evaluation  is 
returned  as  the  value  of  DO. 

b.  MATCH 

The  format  of  the  MATCH  statement  is: 

(MATCH  exp  val  [TOT  ctx]) 

MATCH  evaluates  exp  and  val.  It  then  attempts  to  match 
the  value  of  val  to  the  value  of  exp.  Any  new  variable  bindings  that 
are  created  by  the  matching  process  are  made  with  respect  to  ctx,  if 
present,  or  to  the  current  context.  The  value  of  MATCH  is  the  value  of 
val . 
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c .  MATCHQ 


MATCHQ  Is  identical  to  MATCH  except  that  the  argument  exp 
is  instantiated  rather  than  evaluated. 

This  statement  corresponds  to  the  SETQ  statement  in  QA4 . 

d.  MATCHQQ 

MATCHQQ  is  identical  to  MATCH  except  that  both  exp  and 
val  are  instantiated  rather  than  evaluated . 

This  statement  corresponds  to  the  SETQQ  statement  in  QA4 . 
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Ill  HOW  TO  USE  QLISP 


A .  Loading  the  System 

The  QLISP  system  may  be  loaded  into  LISP  by  typing: 

SYSIN((SACERDOTI)QLISP .SYS) 

All  subsequent  type-ins  will  be  processed  by  the  full  QLISP  system. 

B .  Creating  and  Using  Symbolic  Files 

QLISP  uses  the  INTERLISP  file  package  to  manipulate  symbolic  files. 
PRETTYDEF,  MAKEFILE,  LOAD,  and  LOADFNS  all  know  about  QLISP  constructs 
and  handle  them  properly.  Variables  whose  values  are  to  be  extracted 
from  the  net  on  output  and  stored  into  the  net  on  input  should  be  pre¬ 
fixed  by  a  $ .  Input  to  and  output  from  the  net  is  done  with  respect  to 
the  current  dynamic  context  at  the  time  of  the  I/O  operation.  Input 
of  net  variables  is  done  with  respect  to  the  context  ETERNAL,  and  thus 
the  values  of  LOADed  variables  are  not  backtrackable  (although  the  ef¬ 
fect  of  a  LOAD  is  UNDOable  if  it  is  initiated  at  the  teletype)  . 

C .  Defining  Functions 

QLISP  functions  are  defined  by  using  the  functions  PUTD,  DEFINE,  and 
DEFINE Q. 

D .  Editing  Functions  and  Variables 

All  QLISP  functions  may  be  edited  by  using  EDITF. 

QLISP  variables  may  be  edited  by  using  EDITV.  Net  variables  should 
be  prefixed  by  a  $ .  Retrieval  from  and  storage  into  the  net  is  done 
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with  respect  to  the  current  dynamic  context  at  the  time  EDITV  is  called. 

If  the  value  of  a  net  variable  that  is  not  at  the  top  context  is  being 
edited,  EDITV  will  print  a  warning  message. 

E  .  Tracing  QLISP  Functions 

Since  the  current  implementation  of  LISP  does  not  permit  us  to 
backtrack  properly  through  BREAKS,  we  have  implemented  a  trace  facility 
that  ADVISEs  rather  than  BREAKS  functions. 

Functions  may  be  traced  by  executing  the  function  QTRACE .  It  is 
an  NLAMBDA  no-spread  function  (just  like  TRACE),  and  thus  can  accept  a 
single  function  name  or  a  sequence  of  function  names. 

The  tracing  of  functions  may  be  turned  off  by  invoking  the  function 
UNQTRACE,  which  is  also  an  NLAMBDA  no-spread.  Calling  UNQTRACE  with  no 
arguments  causes  all  traced  functions  to  be  untraced . 

When  new  functions  are  defined  by  loading  a  symbolic  file  or  by  expli¬ 
cit  calls  to  PUTD,  DEFINE  or  DEFINEQ,  all  QLAMBDA  functions  will  be 
automatically  QTRACEd  if  the  global  variable  QTRACEALL  is  set  to  T.  (It 
is  set  to  T  when  QLISP  is  first  loaded.) 

QTRACE  output  may  be  directed  to  a  file  other  than  the  teletype  by 
executing  the  command  TRFILE  (file  name) ,  This  will  also  set  LINELENGTH 
to  120  to  conserve  line  printer  paper.  The  command  UNTRFILE  ()  will 
redirect  QTRACE  output  back  to  the  teletype,  reset  LINELENGTH,  and  close 
the  previous  output  file. 


F .  Restrictions  and  Caveats 

All  function,  variable,  and  property  names  beginning  with  "QA4: " 
are  reserved  for  the  QLISP  system. 
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LISP  variables  should  not  begin  with  $,  ?,  or 

With  one  exception,  all  CLISP  constructs  are  valid  in  QLISP.  The 
exception  is  the  use  of  the  quote  mark  ('),  which  is  used  in  QLISP  to  de¬ 
note  the  quasi-quote  rather  than  the  LISP  QUOTE. 
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Appendix  A 


A  SAMPLE  QLISP  PROGRAM 


Appendix  A 


A  SAMPLE  QLISP  PROGRAM 

With  the  goal  of  creating  a  better  world  through  computer  science, 
we  present  below  a  small  system  for  making  people  happy.  It  was 
written  not  with  elegance  or  efficiency  in  mind,  but  to  give  examples  of 
the  new  QLISP  features  and  their  interactions  with  INTERLISP. 

A .  Program  Testing 

This  symbolic  file  was  created  by  MAKEFILE  in  the  ordinary 
fashion . 
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<REB0H>GENESIS.)3 


/, GM  13-AUG-73  2:25PM 


(FlLECREATED  "i9-J-JL-7.3  i6!«4:tf7»  GENESIS) 


(def  ineo 

(SETUP 

[LAMBDA  Hie  (°  INITIALIZATION 

ROUTINE. ) 

(ASSERT  (PERSON  MARY ) 

SEX  FEMALE  AGE  3G  HOBBIES  (CLASS  TENNIS  NEEDLEPOINT  DANCING) 

> 

(ASSERT  (PERSON  ALICE) 

SEX  FEMALE  AGE  /g  HOBBIES  (CLASS  SCUBA-DIVING  BIRD-WaTchING) 
) 

(ASSERT  (PERSON  EVE) 

SEX  FEMALE  AGE  29  HOBBIES  (CLASS  SNAKE-CHARMING  GARDENING 

VOLLEYBALL) ) 

(ASSERT  (PERSON  AO  AH ) 

SEX  MALl  *CE  3 £;  NETWCRTH  5£2fc0|£  f-OBBIES 
(CLASS  HUNTING  FISHING  GARDENING)) 

(ASSERT  (PERSON  SARA) 

SEX  FEMALE  AGE  AS  NETUORTH  2K2C02CD) 

(M  AKEH  APPY 

[LAMBDA  (L)  <#  *L  IS  A  LIST  OF 

PERSONS.  ) 

(»  try  to  make  each 

PERSON  HAPPY. ) 

[MAPC  L  (FUNCTION  (LAMBDA  (X) 

(PRINT  (ATTEMPT  (GOAL  (HAPPY  ( p  X)) 

apply 

(TUPLE  HITCH  RICH] 

(QUOTE  FINISHED]) 

(HI  To  H 

COLAMBDA  (HAPPY  -HUMAN)  (»  CYCLE  THROUGH  ALL 

members  of  the  opposite 

SEX.) 

(*  hypothesize  a 
marriage  and  see  if  it 

WORKS  OUT,) 

u  if  it  does,  then  the 
human  is  HAPPY.) 

(BIS  (PERSON  -Y) 

SEX 

C@  (PARtNERSEX  ('(PERSON  SHUMaN] 

THEN  (ASSERT  (MARRIED  SHUMAN  ?Y> 

APPLY  SMaRRI  AGEDEM-ONS) 

(OPUT  (PERSON  SHUMAN) 

MARRIEDTO  SY  WRT  GLOBAL  APPLY 
SCOMPUTERElaTIONS) 

(  '  (HAPPY  SHUMAN] ) 
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}  <RE80H>GENESI S. !3  MON  13-AUG-73  2525PM 


{CHECK AGE 

(qlambda  (married  -couple)  to  make  sure  the  wife  is 

NO  T.„T  00  MUCH  -OLDER  THAN 
THE  HUSBAND. ) 

(-GRRD&  (J-SEX 
►AGE 

MALEaGE  -FXHALEAGE) 

CMAPC  (CDh  SCOUPLE) 

(.funeT-ion  (Lambda  (spouse) 

(OGET  (PERSON  (S>  SPOUSE)  ) 

SE-X-  -SEX 
AGE  -AGE) 

UF~<EQ  $SEX-  (  QUOT£  MALE)) 

THEN  (SETO  MalEAGE  SAGE) 

ELSE.  (SET-Q  FENalEAGE  SAGET 
(if  (greaterp  femaleage  (Plus  maleage  5)) 
then  -CXJUL-  DALLE  SU4 
(QRETURN  GK)  ) )  ) 

(checkhobbv 

XQLA.MBDA  CMAHRIED  -X- 

-Y  >  (o  FIND  AT  LEAST  ONE 

tiDg  BY  iN  CUMMCLN. 

otherwise  fail.) 

(ATTEMPT  (MATCHLG  (TUPLE  < CLASS  -R 

--OTHERS) 

(CLASS 

--OTHEROTHERS ) ) 

(TUPLE  CQGET  tP^-ELSON 
HOBBIES) 

(CGET  (PERSON  SY) 

HOBBIES) >) 

ELSE  (FAIL  CALLER) ) ) ) 

<-RA-R  T  WE  R  SE  X 

(ULAMBOA  -x  (*  FIND  THE  OPPOSITE  SEX 

OF  THE  PERSON  IN 
QUESTION. ) 

(SELECT;.'  (CGET  iX  SEX) 

(MALE  (L'JDTE  FEMALE)) 

(FEMALE  (QUOTE  HaLO  ) 

(ERROR  "UNKNOWN  S£  X  ")  ))  ) 
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t  <Re:80H>GE.VESIS,  J3  MON  13- AUG-73  2525PM 


(RICH 

(OLAMBOA  (HAPPY  -HUMAN)  (a  TRY  TO  ACHIEVE  A  NET 

WORTH  GREATER  THAN  ONE 
MILLION, ) 

<*  IF  ACHIEVABLE-.  THEN 
THE  HUMAN  IS  HAPPY. ) 

(a  THIS  ROUTINE  NOW  ONLY 
MAKES  A  SIMPLE  CHECK 
AGAINST  THE  DATA  BASE, ) 

(IF  CGREATERP  (CGET  (PERSON  1 HUMAN) 

NETWORTH) 

1  »!£  B0  00  ) 

THEN  ('(HAPPY  SHUMANI) 

ELSE  (FAI  L>  ))  ) 


(MAKESPOUSE 

eolamsoa  (person  -person)  (a  team  member  of 

SCOMPUTERELATIONS.  ) 

(a  ENSURES  that  THE 
SPOUSE  IS  NOT  ALREADY 

married. ) 

(o  ASSERTS  THAT  THE 
SPOUSE  IS  MARRIED.  ) 


) 


(QPROG  (( ►SPOUSE 

(UGeT  (PERSON  SPERSON) 

KARRI EO  TO  )  )  ) 

(IF  (NOT  ( E 3  (QGET  (PERSON  iSPOUSG) 
MARRI ED  TO  ) 

(QUOT-E  NOSUCHpROPERTYIU 
THEN  (FAIL  CALLER) 

ELSE  (CPUT  (PERSON  SSPCU:;r> 

MARRI  ED  TO  S  PERSON]) 


CL 

1SPX 

PR  I N 

T 

(Q 

UO 

TE 

T) 

(R 

PAQ0 

GENES 

ISFN 

R 

(L 

IS  PX  PR  I N 

T 

(Q 

UO 

TE 

T) 

[R 

PAQQ 

GEN 

ES 

IS 

VA 

RS 

GENES iSFNS) 

(SETUP  MAKEHAPPY  HITCH  CHtCKAGE  CHECXHOBSY 
FaRTNERSEX  RICH  MaKESPOUSE)  ) 

GENES  ISVA  RS  ) 

(  SMAP.R1  AGEOEMONS  $C  OM  PU  TE  rE  LA  TI  ONS 

(p  (as.-TUP  geneSjsvars)) 

(P  (DERTYPE  (QUOTE  MARRIED) 
(QUOTE  CLASS] 


(RPAQQ  SMARR IaGEDEMONS  (CHECKaGE  CHECKHOBBY) ) 
(RPAQQ  SCOMPUTERELATIONS  (MAKESPOUSE)) 

(GSETUP  GENESISVARS) 

(DEFTYpc  (-QUOTE  MARRIED-) 


STOP 


(QUOTE  CLAaS) ) 
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Sample  GENESIS  Run 


B  . 

Here  is  a  session  at  the  teletype  using  the  functions  of  the  GENESIS 
file  in  the  QLISP  system: 
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0LISP 


INTERLISP-13  37-37-73  ... 


HI*  RENE. 

►  SYS  I  N(  <  SAC  ERDOTI  >QLI 5P  •  SYS  I 
(  <SACERDOTI >QLI SP ♦ SYS) 23 ) 

QHELLO 

- LO AD ( GENES  I S  I 

FILE  CREATED  19-JUL-73  16t44:07 

GENESISFNS 

GENES I  SOARS 


Load  in  QLISP 

Load  file  with  user  programs 
Since  the  variable  QTRACEALL  is  set  to  T, 
all  QLAMBDA  functions  will  be  QTRACEd 


GENESIS. )3 
-  SMARRI  AGEDErlONS 
(CHECKAGE  CHECKHU83Y) 
-op(HITCH) 


Net  variables  are  treated  just  like 
LISP  variables 

QLAMBDA  expressions  are  treated  Just  like 


(HITCH 

£ QLAMBDA 


(HAPPY  -HUMAN)  **C0MMENT** 

(BIS  (PERSON  -Y) 

SEX 

C@  (PARTNERSEX  (’(PERSON  S HUMAN! 
THEN  (ASSERT  (MARRIED  SHUMAN  SY) 


LAMBDA  expressions 
**COMMENT** 


APPLY  SMARRIAGEDEMONS) 

(QPUT  (PERSON  SHUMAN) 

MARRIEDTO  SY  VJRT  GLOBAL  APPLY 


**COMMENT** 


SCOMPUTERELAT I ONS) 

( ’ (HAPPY  SHUMAN) ) 

(HITCH) 

—SETUP)  Evaluate  the  user's  initialization  function 

T 
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-MAKEHAPPYC  (ADAM  SARA))  Try  to  make  Adam  and  Sara  happy 

HITCH! 

QAA  :  ARG  =  CHAPPY  ADAM) 

PART NER S EX :  — — "Example  of  function  trace 

QAA:ARG=  (PERSON  ADAM ) 

CPARTNERSEX)  =  FEMALE  - Function  returns  'FEMALE 

CHECKAGE: 


QAA  *ARG  =  C HARR  I  ED 
C  CHECKAGE )  =  OK 
CHECKHOBBY: 

QAA ! ARG=  (MARRIED 
CHECKAGE! 

13  aa  •  arg=  (Married 

CHECKAGE! 

QAA:ARG=  (MARRIED 
(CHECKAGE)  =  OK 
CHECKHOBBY! 


ADAM  MARY) 

ADAM  MARY) 
ADAM  ALICE) 
ADAM  EVE) 


Function  is  called,  but  does 

not  return;  it  caused  a  failure 


QAA : ARG=  (MARRIED  ADAM  EVE) 

(CHECKHOBBY)  =  ((CLASS  SNAKE-CHARMING  GARDENING  VOLLEYBALL)  (CLASS 
GARDENING  HUNTING  FISHING)) 

MAKESPOUSS! 

QAA i ARG=  (PERSON  ADAM) 

CMAKESPOUSE)  =  ADAM 
(HITCH)  =  (HAPPY  ADAM) 

(HAPPY  ADAM) 

HITCH: 


QAA:ARG=  CHAPPY  SARA) 
PARTNERSEX: 

QAA : ARG=  (PERSON  SARA) 
CPARTNERSEX)  =  MALE 
CHECKAGE: 

QAA : ARG=  (MARRIED  ADAM  SARA) 
RICH: 

QAA : ARG=  (HAPPY  SARA) 


GC:  8 

5980,  10068  FREE  WORDS 
(RICH)  =  CHAPPY  SARA) 
CHAPPY  SARA) 

FINISHED 


Garbage  collection  of  list  storage 
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Appendix  B 


THE  SYNTAX  OF  QLISP  STATEMENTS 


Appendix  B 


THE  SYNTAX  OF  QLISP  STATEMENTS 


For  the  syntax  of  INTERLISP  statements  see  reference  3. 

The  representation  of  the  syntax  of  the  other  QLISP  statements  is 
presented  below.  The  following  notation  is  used: 

•  Braces  ({})  indicate  that  the  enclosed  elements  may  be  omitted. 

•  Square  brackets  ([])  indicate  the  choice  of  one  of  the  enclosed 
elements . 

•  A  subscript  indicates  an  element  of  a  sequence. 

•  e  indicates  an  expression  to  be  evaluated . 

•  p-exp  indicates  an  expression  to  be  instantiated . 

•  tpl  indicates  an  expression  of  STYPE  TUPLE. 

•  var  indicates  a  net  variable. 

•  ctx  indicates  an  expression  that  instantiates  to  a  context. 

•  name  indicates  an  expression  that  instantiates  to  a  statement 
name . 

•  ind  indicates  an  expression  that  instantiates  to  a  property 
list  indicator. 

•  prop  indicates  an  expression  that  instantiates  to  a  property. 

•  tuple,  vector,  bag,  and  class  indicate  expressions  that  evaluate 
to  a  TUPLE,  VECTOR,  BAG,  or  CLASS  respectively.  Note  that  a 
LISP  list  is  treated  as  a  tuple. 
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(ASSERT  p-exp  t  APPLY 
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